home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTRAN / 3017.ZIP / RMOUSE.FOR < prev    next >
Text File  |  1988-10-22  |  874b  |  42 lines
  1.       PROGRAM RMOUSE
  2. C
  3. C     TO READ MOUSE DRIVER
  4. C     OLYMPIC SOFTWARE  --  9/23/88
  5. C
  6.       EXTERNAL MOUSDR,VBIOS
  7.       INTEGER*2 IAR(4),IBR(8)
  8. C
  9.       IAR(1)=0
  10.       CALL MOUSDR(IAR)
  11.       IF(IAR(1).EQ.0)THEN
  12.         WRITE(*,80)
  13.  80     FORMAT(' MOUSE DOES NOT EXIST!')
  14.         GOTO 99
  15.       ELSE
  16.         WRITE(*,81)IAR(2)
  17.  81     FORMAT(' MOUSE WITH ',I2,' BUTTONS INSTALLED',/,
  18.      1         ' PRESS ^C TO END THIS PROGRAM',/)
  19.       ENDIF
  20. C
  21. C***    READ MOUSE DRIVER
  22.       IAR(1)=3
  23.  1    CALL MOUSDR(IAR)
  24.       WRITE(*,20)(IAR(I),I=2,4)
  25.  20   FORMAT(' BUTTON STATUS: [',I2,']   X,Y COORD.: [',I4,',',I4,']')
  26. C
  27. C***    READ CURSOR POSITION
  28.       IBR(1)=3
  29.       IBR(3)=0
  30.       CALL VBIOS(IBR)
  31. C***    TAKE CURSOR BACK UP BY 1 ROW
  32.       IBR(1)=2
  33.       IBR(7)=IBR(7)-1
  34.       CALL VBIOS(IBR)
  35.       GOTO 1
  36. C
  37.  99   STOP
  38.       END
  39.  
  40.  
  41.  
  42.